home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / WIZARDS / FIXWIZ.PRG < prev    next >
Encoding:
Text File  |  1998-05-26  |  3.2 KB  |  95 lines
  1. * This program file can be used to convert existing forms 
  2. * created using the Visual FoxPro 5.0 Form Wizard. Forms
  3. * created with the VFP5 Wizard used a very large classlib
  4. * called WIZSTYLE.VCX. This file has since been broken up 
  5. * into a number of smaller more reusable class libraries.
  6. * WIZSTYLE.VCX is still included for backward compatibility.
  7. * 
  8. * This utility simply redirects the old class WIZSTYLE class
  9. * references to the new files.
  10. * 
  11. * A backup copy with _OLD at the end of name is made for each
  12. * file updated.
  13.  
  14. LOCAL lMakeBackup,cFileName,cSaveArea,lCopyName 
  15. lMakeBackup = .t.
  16. cFileName = GETFILE("SCX|VCX")
  17. cSaveArea = SELECT()
  18. IF EMPTY(cFileName) OR !INLIST(UPPER(JUSTEXT(m.cFileName)),"SCX","VCX")
  19.     RETURN
  20. ENDIF
  21. SELECT 0
  22. USE (m.cFileName) EXCL
  23. IF EMPTY(ALIAS())
  24.     SELECT (m.cSaveArea)
  25.     RETURN
  26. ENDIF
  27. IF m.lMakeBackUp
  28.     lCopyName = JUSTSTEM(m.cFileName) +"_OLD.SCX"
  29.     COPY TO (m.lCopyName)
  30. ENDIF
  31.  
  32. * Standard Style
  33. REPLACE ALL classloc WITH STRTRAN(classloc,"wizstyle","wizstnd") ;
  34.     FOR ATC("Standard",class)#0
  35. REPLACE ALL parent WITH STRTRAN(parent,"wizstyle","wizstnd") ;
  36.     FOR ATC("Standard",class)#0
  37. REPLACE ALL class WITH STRTRAN(class,"wizstyle","wizstnd") FOR ;
  38.     ATC("Standard",class)#0
  39.     
  40. * Chiseled Style
  41. REPLACE ALL classloc WITH STRTRAN(classloc,"wizstyle","wizchsl") ;
  42.     FOR ATC("Chisel",class)#0
  43. REPLACE ALL parent WITH STRTRAN(parent,"wizstyle","wizchsl") ;
  44.     FOR ATC("Chisel",class)#0
  45. REPLACE ALL class WITH STRTRAN(class,"wizstyle","wizchsl") FOR ;
  46.     ATC("Chisel",class)#0
  47.     
  48. * Boxed Style
  49. REPLACE ALL classloc WITH STRTRAN(classloc,"wizstyle","wizbox") ;
  50.     FOR ATC("Box",class)#0
  51. REPLACE ALL parent WITH STRTRAN(parent,"wizstyle","wizbox") ;
  52.     FOR ATC("Box",class)#0
  53. REPLACE ALL class WITH STRTRAN(class,"wizstyle","wizbox") FOR ;
  54.     ATC("Box",class)#0
  55.     
  56. * Shadow Style
  57. REPLACE ALL classloc WITH STRTRAN(classloc,"wizstyle","wizshdow") ;
  58.     FOR ATC("Shadow",class)#0
  59. REPLACE ALL parent WITH STRTRAN(parent,"wizstyle","wizshdow") ;
  60.     FOR ATC("Shadow",class)#0
  61. REPLACE ALL class WITH STRTRAN(class,"wizstyle","wizshdow") FOR ;
  62.     ATC("Shadow",class)#0
  63.     
  64. * Embossed Style
  65. REPLACE ALL classloc WITH STRTRAN(classloc,"wizstyle","wizembss") ;
  66.     FOR ATC("emboss",class)#0
  67. REPLACE ALL parent WITH STRTRAN(parent,"wizstyle","wizembss") ;
  68.     FOR ATC("emboss",class)#0
  69. REPLACE ALL class WITH STRTRAN(class,"wizstyle","wizembss") FOR ;
  70.     ATC("emboss",class)#0
  71.     
  72. * Fancy Style
  73. REPLACE ALL classloc WITH STRTRAN(classloc,"wizstyle","wizfancy") ;
  74.     FOR ATC("Fancy",class)#0
  75. REPLACE ALL parent WITH STRTRAN(parent,"wizstyle","wizfancy") ;
  76.     FOR ATC("Fancy",class)#0
  77. REPLACE ALL class WITH STRTRAN(class,"wizstyle","wizfancy") FOR ;
  78.     ATC("Fancy",class)#0
  79.     
  80. * Buttons Style
  81. REPLACE ALL classloc WITH STRTRAN(classloc,"wizstyle","wizbtns") ;
  82.     FOR ATC("txtbtns",class)#0
  83. REPLACE ALL classloc WITH STRTRAN(classloc,"wizstyle","wizbtns") ;
  84.     FOR ATC("picbtns",class)#0
  85. REPLACE ALL classloc WITH STRTRAN(classloc,"wizstyle","wizbtns") ;
  86.     FOR ATC("scrollgrid",class)#0
  87. REPLACE ALL classloc WITH STRTRAN(classloc,"wizstyle","wizbtns") ;
  88.     FOR ATC("grid",class)#0
  89. REPLACE ALL classloc WITH STRTRAN(classloc,"wizstyle","wizbtns") ;
  90.     FOR ATC("search",class)#0
  91.     
  92.  
  93. USE    
  94. SELECT (m.cSaveArea)
  95.